home *** CD-ROM | disk | FTP | other *** search
/ Colson Caster Selection Guide 3 / Colson Caster Selection Guide 3.0.iso / data1.cab / Program_Executable_Files / colsoncd.dxr / Internal_15.ls < prev    next >
Encoding:
Text File  |  2000-01-12  |  2.7 KB  |  86 lines
  1. on mouseUp
  2.   put EMPTY into field "op"
  3.   if the hilite of cast "b_BRK2" = 1 then
  4.     put "BRK2:TechLock; " after field "op"
  5.   end if
  6.   if the hilite of cast "b_BRK1b" = 1 then
  7.     put "BRK1:Tread Lock; " after field "op"
  8.   end if
  9.   if the hilite of cast "b_seal" = 1 then
  10.     put "SEAL:Dirtban; " after field "op"
  11.   end if
  12.   if the hilite of cast "b_MTG51" = 1 then
  13.     if field "mainmounting" contains "Standard" then
  14.       put "MTG51:Swivel Lock; " after field "op"
  15.     end if
  16.     if field "mainmounting" contains "MTG2" then
  17.       put "MTG52:Swivel Lock; " after field "op"
  18.     end if
  19.     if field "mainmounting" contains "MTG4" then
  20.       put "MTG54:Swivel Lock; " after field "op"
  21.     end if
  22.   end if
  23.   if the hilite of cast "b_MTG61" = 1 then
  24.     if field "mainmounting" contains "Standard" then
  25.       put "MTG61:Swivel Lock; " after field "op"
  26.     end if
  27.     if field "mainmounting" contains "MTG2" then
  28.       put "MTG62:Swivel Lock; " after field "op"
  29.     end if
  30.     if field "mainmounting" contains "MTG4" then
  31.       put "MTG64:Swivel Lock; " after field "op"
  32.     end if
  33.   end if
  34.   if the hilite of cast "b_tg1" = 1 then
  35.     put "TG1:Metal; " after field "op"
  36.   end if
  37.   if the hilite of cast "b_fsi" = 1 then
  38.     put "FSI; " after field "op"
  39.   end if
  40.   if the hilite of cast "b_AX1" = 1 then
  41.     put "AX1: Zerk Axle; " after field "op"
  42.   end if
  43.   if the hilite of cast "b_AX2" = 1 then
  44.     put "AX2: Solid Axle; " after field "op"
  45.   end if
  46.   if the hilite of cast "b_NT1" = 1 then
  47.     put "NT1: Thick Lock Nut; " after field "op"
  48.   end if
  49.   if the hilite of cast "b_NT2" = 1 then
  50.     put "NT2: Thin Lock Nut; " after field "op"
  51.   end if
  52.   if the hilite of cast "b_grf1" = 1 then
  53.     put "GRF1: No Grease; " after field "op"
  54.   end if
  55.   if the hilite of cast "b_grf2" = 1 then
  56.     put "GRF2: Double Grease; " after field "op"
  57.   end if
  58.   if the hilite of cast "b_grf3" = 1 then
  59.     put "GRF3: 300 degree Cont.; " after field "op"
  60.   end if
  61.   if the hilite of cast "b_grw1" = 1 then
  62.     put "GRW1: No Grease; " after field "op"
  63.   end if
  64.   if the hilite of cast "b_grw2" = 1 then
  65.     put "GRW2: Double Grease; " after field "op"
  66.   end if
  67.   if the hilite of cast "b_grw3" = 1 then
  68.     put "GRW3: 300 Degree Cont.; " after field "op"
  69.   end if
  70.   put field "bearingoption" after field "op"
  71.   delete char -30000 of field "op"
  72.   delete char -30000 of field "op"
  73.   put field "op" into field "mainop"
  74.   puppetSound("foundspec")
  75.   puppetTransition(47, 1, 8)
  76.   put the number of lines in field "tblca_Fe,FEATURE"
  77.   if the number of chars in field "Tblca_Fe,FEATURE" > 200 then
  78.     put field "Tblca_Fe,FEATURE" into field "specbfea"
  79.     play frame "specb"
  80.     abort()
  81.   end if
  82.   puppetSound("mainsnd")
  83.   play frame "speca"
  84.   abort()
  85. end
  86.